home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / B / BPlan.cpt / Business Plan™ 1.2 / card_10950.txt < prev    next >
Text File  |  1990-08-11  |  4KB  |  158 lines
  1. -- card: 10950 from stack: in.2
  2. -- bmap block id: 13567
  3. -- flags: 6000
  4. -- background id: 4923
  5. -- name: Deposits
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 80
  10. -- high flags: 4000
  11. -- rect: left=34 top=238 right=250 bottom=448
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: flasher
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 80
  24. -- high flags: A003
  25. -- rect: left=337 top=261 right=283 bottom=443
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Cross-search
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global oldList
  37.   put "CROSS-SEARCHES FOUND:" & return & return into tempList
  38.   DoList 998,("Date,Check Number,Description,Amount"),1
  39.   if the result > 0 then
  40.     put item 2 of the result into thetype
  41.   else
  42.     exit mouseup
  43.   end if
  44.   if theType = "Date" then put 1 into theType
  45.   if theType = "Check Number" then put 2 into theType
  46.   if theType = "Description" then put 3 into theType
  47.   if theType = "Amount" then put 4 into theType
  48.   ask "String to search for within this list?"
  49.   put it into theString
  50.   if theString is empty then exit mouseUP
  51.   put 1 into x
  52.   repeat for the number of lines in bg fld "thelist"
  53.     set cursor to busy
  54.     if item theType of line x of bg fld "theList" = theString then
  55.       put line x of bg fld "theList" & return after templist
  56.     end if
  57.     put x + 1 into x
  58.   end repeat
  59.   if the number of lines in templist > 2 then
  60.     put bg fld "theList" into oldList
  61.     put templist into bg fld "theList"
  62.     set scroll of bg fld "theList" to 0
  63.     set visible of cd btn "Revert" to true
  64.   else
  65.     answer "Sorry, no cross-references found..."
  66.   end if
  67.  
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 3 (button)
  73. -- low flags: 80
  74. -- high flags: A003
  75. -- rect: left=337 top=233 right=255 bottom=443
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Revert
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   global oldList
  87.   put oldList into bg fld "thelist"
  88.   set visible of cd btn "revert" to false
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: 2000
  96. -- rect: left=14 top=68 right=90 bottom=36
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 3860 / 3860
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: panic
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   if visible of bg fld "help" is true then
  108.     Zoomer 65,72,442,297,154,144,354,229
  109.     Zoomer 154,144,354,229,12,30,34,52
  110.     lock screen
  111.     hide pict of this cd
  112.     hide bg fld "help"
  113.   else
  114.     Zoomer 12,30,34,52,154,144,354,229
  115.     Zoomer 154,144,354,229,65,72,442,297
  116.     lock screen
  117.     show bg fld "help"
  118.     show pict of this cd
  119.   end if
  120. end mouseUp
  121.  
  122. on mouseWithin
  123.   ChangeCurs 25
  124. end mouseWithin
  125.  
  126. on mouseLeave
  127.   set cursor to hand
  128. end mouseLeave
  129.  
  130.  
  131.  
  132. -- part contents for background part 19
  133. ----- text -----
  134. Choose criteria to search by.
  135.  
  136. -- part contents for background part 20
  137. ----- text -----
  138. MATCHES FOUND:
  139.  
  140. 7/25/90,9020,Deposit,701.96,0
  141.  
  142.  
  143. -- part contents for background part 23
  144. ----- text -----
  145.  
  146. QUICK HELP FOR THIS CARD
  147.  
  148. This card contains all the deposits entered into this stack.  The deposits are stored with the following format:
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157. The Cleared Status tells Business Plan whether this deposit has cleared the bank
  158. (a "1" means it's cleared, a "0" means it's not).  If you want to change the Cleared Status of an item, click on that line to edit the line.  You will be taken to the Main card, where you can edit the line to your liking and re-enter it.